home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / amos / amosprog.lha / CheckSYS.AMOS / CheckSYS.amosSourceCode < prev   
AMOS Source Code  |  1995-03-15  |  1KB  |  44 lines
  1. '********************************* 
  2. '*      CHECK SYSTEM ^V 1.0      * 
  3. '*-------------------------------* 
  4. '*   (c) Marcin Szumiela 1995    * 
  5. '********************************* 
  6. Hide : Curs Off 
  7. '--------------------------------
  8. ' Uruchamiam ASM/ D0 = x -> 680x0
  9. '--------------------------------
  10. Call 11
  11. Print 'Procesor Motorola 680'+(Str$(Dreg(0))-' ')+'0'
  12. '--------------------------------
  13. '  Sprawdzam istnienie AGA 
  14. '--------------------------------
  15. If Deek($DFF07C)=$F8
  16. Print 'Ko∩┐╜ci AGA znalezione...'
  17. Else Print 'Nie znalaz∩┐╜em Ko∩┐╜ci AGA...'
  18. End If 
  19. '--------------------------------
  20. '  Sprawdzam wersj∩┐╜ romu 
  21. '--------------------------------
  22. LIBNOP=70
  23. On Error Goto KONIEC
  24. Lib Open 1,'dos.library',LIBNOP
  25. Goto DALEJ
  26. KONIEC:
  27. Dec LIBNOP
  28. Resume 
  29. DALEJ:
  30. Lib Close 1
  31. Print 'Wersja ROM #'+(Str$(LIBNOP)-' ')
  32. '--------------------------------
  33. '  Check Fast
  34. '--------------------------------
  35. If Fast Free>0
  36. Print 'Wolny Fast $C00000'+Str$(Fast Free/1024)+' KB'
  37. Else 
  38. Print 'Fast nie znaleziony ...'
  39. End If 
  40. Print 'Wolny Chip $000000'+Str$(Chip Free/1024)+' KB'
  41. '--------------------------------
  42. '  Koniec
  43. '--------------------------------
  44. Wait Key